home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / MenuScripter / MenuScripter.rsrc / SCPT_4129_File - New.txt < prev    next >
Encoding:
Text File  |  1996-07-09  |  663 b   |  28 lines
  1. # (decoded with TMPL 128)
  2. Text: '
  3. script DocumentScript
  4.     
  5.     property windowBounds : {20, 20, 300, 300}
  6.     
  7.     on save aReference in anAlias
  8.         -- the reference should be the document
  9.         set windowBounds to bounds of aReference
  10.         continue save aReference in anAlias
  11.     end save
  12.     
  13.     on revert aReference
  14.         continue revert aReference
  15.         set bounds of aReference to windowBounds
  16.     end revert
  17.     
  18.     on close aReference saving anEnum
  19.         set windowBounds to bounds of aReference
  20.         continue close aReference saving anEnum
  21.     end close
  22.     
  23. end script
  24.  
  25. set aDocument to make document -- returns an object specifier
  26. set script of aDocument to DocumentScript
  27. set modified of aDocument to false
  28. '